home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / autofx / eot_fxforge1.ifx.pre < prev    next >
Text File  |  2004-08-03  |  3KB  |  83 lines
  1. /* Setup Arexx program for AutoFX and FXForge
  2.    EOT_FXForge1.ifx.pre
  3.  
  4. Programmed by K. Barkley Dec 1997
  5. These scripts are set up so that the script can be called multiple times in the
  6. same AutoFX session without colliding.  I have set it up for 2, but the scheme can be
  7. easily extended to any number, by changing the number of the INSTANCE variable and 
  8. renaming the script accordingly.
  9.  
  10. Inputs:
  11. Word(Arg(1),1) = Sequence Number
  12. Word(Arg(1),1) = Total Number of Frames
  13.  
  14. Outputs:
  15. 0 if successful, non-zero on failure
  16. */
  17.  
  18. OPTIONS RESULTS
  19.  
  20. /* change this variable to create a new unique script */
  21. instance = 1
  22.  
  23. rc = 0
  24.  
  25. base = 'AutoFx_FXFld' || instance || '_'
  26.  
  27. /* set up the path and initial file */
  28. lpath = GETCLIP(base || 'Path')
  29. lfile = GETCLIP(base || 'File')
  30.  
  31. if lpath = "" THEN lpath = "Storage/FXForge"
  32.  
  33. DO i = 0 TO 7
  34.    ctemp = GETCLIP(base||'Ctl'||i)
  35.    IF ctemp = "" THEN control.i = 0 
  36.       ELSE control.i = ctemp
  37.    
  38.    ctemp = GETCLIP(base|| 'Stp' || i)
  39.    IF ctemp = "" THEN step.i = 0 
  40.       ELSE step.i = ctemp
  41.       
  42. END i
  43.  
  44. /* get the user inputs */
  45. gadget.1 = 'STRING   150    4    260   14   "Load File:"' lfile
  46. gadget.2 = 'FILEREQ  412    4     20   14   "Load File:"' lpath '#?' lfile 'AT = 1'
  47. gadget.3 = 'INTEGER  150   18    100   10   "Control 0      Start:"' control.0
  48. gadget.4 = 'INTEGER  310   18    100   10   "Step:"' step.0
  49. gadget.5 = 'INTEGER  150   33    100   10   "Control 1      Start:"' control.1
  50. gadget.6 = 'INTEGER  310   33    100   10   "Step:"' step.1
  51. gadget.7 = 'INTEGER  150   48    100   10   "Control 2      Start:"' control.2
  52. gadget.8 = 'INTEGER  310   48    100   10   "Step:"' step.2
  53. gadget.9 = 'INTEGER  150   63    100   10   "Control 3      Start:"' control.3
  54. gadget.10= 'INTEGER  310   63    100   10   "Step:"' step.3
  55. gadget.11= 'INTEGER  150   78    100   10   "Control 4      Start:"' control.4
  56. gadget.12= 'INTEGER  310   78    100   10   "Step:"' step.4
  57. gadget.13= 'INTEGER  150   93    100   10   "Control 5      Start:"' control.5
  58. gadget.14= 'INTEGER  310   93    100   10   "Step:"' step.5
  59. gadget.15= 'INTEGER  150  109    100   10   "Control 6      Start:"' control.6
  60. gadget.16= 'INTEGER  310  109    100   10   "Step:"' step.6
  61. gadget.17= 'INTEGER  150  123    100   10   "Control 7      Start:"' control.7
  62. gadget.18= 'INTEGER  310  123    100   10   "Step:"' step.7
  63. gadget.19= 'END'
  64.  
  65. NewComplexRequest '"FXForge AutoFX Setup"' gadget 450 160
  66. IF rc ~= 0 THEN EXIT rc
  67.  
  68. /* set up the variables */
  69.  
  70. CALL SETCLIP(base || 'Path', result.2.path)
  71. CALL SETCLIP(base || 'File', result.2.file)
  72.  
  73.  
  74. DO i = 0 TO 7
  75.    ctlidx = 2 * i + 3
  76.    stpidx = 2 * i + 3 + 1
  77.  
  78.    CALL SETCLIP(base|| 'Ctl' || i , result.ctlidx)
  79.    CALL SETCLIP(base|| 'Stp' || i , result.stpidx)
  80.  
  81. END i
  82.  
  83. EXIT rc